module example_mod
    
    implicit none

    contains

    subroutine say_hello(name)
        character(len=*), intent(in) :: name
        print*, 'Hello, ', name
    end subroutine say_hello
    
end module example_mod
